Komputer for Alle 2003 Ekstra 100 Spil/K-CD_2003_Ekstra_100_Spil.iso/Action/GLtron/GLtron-0.62-setup.exe/{app}/scripts/video.lua

Text File | 2002-12-21 | 839b | 37 lines

-- very similiar to setupSoundTracks() in audio.lua

function setupArtpacks()
   local i,name
   for i,name in artpacks do
      if name == settings.current_artpack then
     current_artpack_index = i
     return
      end
   end
   settings.current_artpack = artpacks[1]
   current_artpack_index = 1
end

function nextArtpack()
   if current_artpack_index < getn(artpacks) then
      current_artpack_index = current_artpack_index + 1
   else
      current_artpack_index = 1
   end
   settings.current_artpack = artpacks[ current_artpack_index ]
   c_reloadArtpack()
end

function previousArtpack()
   if current_artpack_index > 1 then
      current_artpack_index = current_artpack_index - 1
   else
      current_artpack_index = getn(artpacks)
   end
   settings.current_artpack = artpacks[ current_artpack_index ]
   c_reloadArtpack()
end